MacFormat 1997 February/macformat-047.iso/Demos/Simpsons Cartoon Studio™ Demo/Simpsons/Support/dlogdata/alert.Dxr/00007_save button.ls

Text File | 1996-08-16 | 588 b | 23 lines

on mouseDown
  set mySpriteNum to the clickOn
  set hilit to 1
  set theCastNum to the castNum of sprite mySpriteNum
  set the castNum of sprite mySpriteNum to theCastNum + 1
  updateStage()
  repeat while the mouseDown
    if rollOver(mySpriteNum) then
      set the castNum of sprite mySpriteNum to theCastNum + 1
      set hilit to 1
    else
      set the castNum of sprite mySpriteNum to theCastNum
      set hilit to 0
    end if
    updateStage()
  end repeat
  set the castNum of sprite mySpriteNum to theCastNum
  updateStage()
  if hilit then
    doButtonScript(3)
  end if
end